; Music of A View to a Kill (1985) (Domark)
; Ripped by Megachur the 14/02/2009

; Need System Vectors

	write "AVIEWTAK.BIN"

music_date_rip	equ &0e29
music_adr	equ &9d6c
first_theme	equ 0
last_theme	equ 0

	read "music_header_v1_0.asm"

.l9d70 equ $ + 4
.l9d6e equ $ + 2
.l9d6c
	dw l9d72,l9eb7,la162
.l9d72
	db #2f,#50,#30,#50,#31,#50,#30,#50
	db #2f,#50,#30,#50,#31,#50,#30,#50
	db #23,#50,#24,#50,#25,#50,#24,#50
	db #23,#50,#24,#50,#25,#50,#24,#50
	db #23,#50,#24,#50,#25,#50,#24,#50
	db #23,#50,#24,#50,#25,#50,#24,#50
	db #23,#50,#24,#50,#25,#50,#24,#50
	db #23,#50,#24,#50,#25,#50,#24,#50
	db #23,#50,#24,#50,#25,#50,#24,#50
	db #23,#50,#24,#50,#25,#50,#24,#50
	db #2f,#50,#30,#50,#31,#50,#30,#50
	db #2f,#50,#30,#50,#31,#50,#30,#50
	db #1c,#28,#1f,#28,#23,#28,#1f,#28
	db #1c,#28,#1e,#28,#1f,#28,#23,#28
	db #1c,#28,#1f,#28,#23,#28,#1f,#28
	db #fe,#14,#2f,#28,#fe,#14,#2f,#50
	db #1c,#28,#1f,#28,#23,#28,#1f,#28
	db #1c,#28,#1e,#28,#1f,#28,#23,#28
	db #1c,#28,#1f,#28,#23,#28,#17,#28
	db #fe,#14,#2f,#28,#fe,#14,#2f,#50
	db #1c,#28,#1f,#28,#23,#28,#1f,#28
	db #1c,#28,#1e,#28,#1f,#28,#23,#28
	db #1c,#28,#1f,#28,#23,#28,#1f,#28
	db #fe,#14,#2f,#28,#fe,#14,#2f,#50
	db #1c,#28,#1f,#28,#23,#28,#1f,#28
	db #1c,#28,#1e,#28,#1f,#28,#23,#28
	db #1c,#28,#1f,#28,#23,#28,#17,#28
	db #fe,#14,#2f,#28,#fe,#14,#2f,#50
	db #1c,#28,#1f,#28,#23,#28,#17,#28
	db #1c,#28,#1f,#28,#23,#28,#17,#28
	db #1c,#28,#1f,#28,#23,#28,#17,#28
	db #1c,#28,#1f,#28,#23,#28,#17,#28
	db #1c,#28,#fe,#14,#17,#64,#fe,#14
	db #17,#78,#17,#64,#18,#50,#19,#50
	db #18,#50,#23,#50,#24,#50,#25,#50
	db #24,#50,#23,#50,#24,#50,#25,#50
	db #24,#50,#23,#50,#24,#50,#25,#50
	db #24,#50,#17,#50,#18,#50,#19,#50
	db #18,#50,#1c,#28,#fe,#50,#1c,#28
	db #fe,#50,#1c,#28,#fe,#50,#1c,#28
.l9eb7 equ $ + 5
	db #fe,#a0,#1c,#a0,#ff,#28,#28,#34
	db #28,#28,#28,#34,#28,#28,#28,#34
	db #28,#28,#28,#34,#28,#28,#28,#34
	db #28,#28,#28,#34,#28,#28,#28,#34
	db #28,#28,#28,#34,#28,#34,#14,#36
	db #0a,#36,#0a,#36,#14,#36,#28,#34
	db #14,#34,#14,#34,#14,#34,#14,#37
	db #0a,#37,#0a,#37,#14,#37,#28,#36
	db #14,#36,#14,#36,#14,#34,#14,#36
	db #0a,#36,#0a,#36,#14,#36,#28,#34
	db #14,#34,#14,#34,#14,#34,#14,#37
	db #0a,#37,#0a,#37,#14,#37,#28,#36
	db #14,#36,#14,#36,#14,#34,#14,#36
	db #0a,#36,#0a,#36,#14,#36,#28,#34
	db #14,#34,#14,#34,#14,#34,#14,#37
	db #0a,#37,#0a,#37,#14,#37,#28,#36
	db #14,#36,#14,#34,#14,#3f,#14,#3e
	db #64,#3b,#14,#39,#14,#3b,#a0,#34
	db #14,#36,#0a,#36,#0a,#36,#14,#36
	db #28,#34,#14,#34,#14,#34,#14,#34
	db #14,#37,#0a,#37,#0a,#37,#14,#37
	db #28,#36,#14,#36,#14,#36,#14,#34
	db #14,#36,#0a,#36,#0a,#36,#14,#36
	db #28,#34,#14,#34,#14,#34,#14,#34
	db #14,#37,#0a,#37,#0a,#37,#14,#37
	db #28,#36,#14,#36,#14,#36,#14,#34
	db #14,#36,#0a,#36,#0a,#36,#14,#36
	db #28,#34,#14,#34,#14,#34,#14,#34
	db #14,#37,#0a,#37,#0a,#37,#14,#37
	db #28,#36,#14,#36,#14,#34,#14,#1c
	db #28,#28,#28,#1c,#28,#28,#28,#1c
	db #28,#28,#28,#1c,#28,#28,#28,#1c
	db #14,#28,#14,#34,#14,#28,#14,#1c
	db #14,#28,#14,#34,#14,#28,#14,#1c
	db #14,#28,#14,#34,#14,#28,#14,#1c
	db #14,#28,#14,#34,#14,#28,#14,#1c
	db #14,#28,#14,#34,#14,#28,#14,#1c
	db #14,#28,#14,#34,#14,#28,#14,#1c
	db #14,#28,#14,#34,#14,#28,#14,#1c
	db #14,#28,#14,#34,#14,#28,#14,#34
	db #14,#34,#28,#3f,#14,#3b,#3c,#37
	db #14,#36,#14,#37,#8c,#37,#14,#39
	db #0a,#37,#0a,#36,#3c,#2f,#14,#34
	db #14,#fe,#14,#1c,#28,#1f,#28,#23
	db #28,#17,#28,#34,#14,#34,#28,#3f
	db #14,#3b,#3c,#37,#14,#36,#14,#37
	db #8c,#37,#14,#39,#0a,#37,#0a,#36
	db #3c,#2f,#14,#33,#14,#fe,#14,#1c
	db #28,#1f,#28,#23,#28,#1f,#28,#34
	db #14,#34,#28,#3f,#14,#3b,#3c,#37
	db #14,#36,#14,#37,#8c,#37,#14,#39
	db #0a,#37,#0a,#36,#3c,#2f,#14,#34
	db #14,#fe,#14,#1c,#28,#1f,#28,#23
	db #28,#17,#28,#34,#14,#34,#28,#3f
	db #14,#3b,#3c,#37,#14,#36,#14,#37
	db #8c,#37,#14,#39,#0a,#37,#0a,#36
	db #3c,#2f,#14,#33,#14,#fe,#14,#1c
	db #28,#1f,#28,#23,#28,#1f,#28,#2f
	db #14,#2f,#28,#2f,#14,#33,#14,#33
	db #14,#33,#28,#34,#14,#34,#28,#34
	db #14,#33,#14,#33,#14,#33,#28,#2f
	db #14,#2f,#28,#2f,#14,#33,#14,#33
	db #14,#33,#28,#34,#14,#34,#28,#34
	db #14,#33,#14,#33,#14,#33,#28,#3b
	db #14,#3b,#14,#fe,#50,#3b,#14,#3b
	db #14,#fe,#50,#3b,#0a,#3b,#14,#3b
	db #0a,#3b,#14,#3b,#14,#fe,#a0,#fe
	db #a0,#34,#14,#36,#0a,#36,#0a,#36
	db #14,#36,#28,#34,#14,#34,#14,#34
	db #14,#34,#14,#37,#0a,#37,#0a,#37
	db #14,#37,#28,#36,#14,#36,#14,#34
	db #14,#34,#14,#36,#0a,#36,#0a,#36
	db #14,#36,#28,#34,#14,#34,#14,#34
	db #14,#34,#14,#37,#0a,#37,#0a,#37
	db #14,#37,#28,#36,#14,#36,#14,#34
	db #14,#34,#14,#36,#0a,#36,#0a,#36
	db #14,#36,#28,#34,#14,#34,#14,#34
	db #14,#34,#14,#37,#0a,#37,#0a,#37
	db #14,#37,#28,#36,#14,#36,#14,#34
	db #14,#3f,#14,#3e,#64,#3b,#14,#39
	db #14,#3b,#a0,#28,#14,#2b,#23,#fe
	db #05,#33,#14,#32,#28,#2b,#14,#2f
	db #23,#fe,#05,#36,#14,#35,#28,#2f
	db #14,#32,#23,#fe,#05,#3a,#14,#39
	db #28,#35,#14,#39,#37,#fe,#05,#3f
	db #14,#3e,#28,#fe,#3c,#36,#a0,#ff
.la162
	db #1c,#28,#2b,#28,#1c,#28,#2b,#28
	db #1c,#28,#2b,#28,#1c,#28,#2b,#28
	db #1c,#28,#2b,#28,#1c,#28,#2b,#28
	db #1c,#28,#2b,#28,#1c,#28,#2b,#28
	db #28,#14,#2a,#0a,#2a,#0a,#2a,#14
	db #2a,#28,#28,#14,#28,#14,#28,#14
	db #28,#14,#2b,#0a,#2b,#0a,#2b,#14
	db #2b,#28,#2a,#14,#2a,#14,#2a,#14
	db #28,#14,#2a,#0a,#2a,#0a,#2a,#14
	db #2a,#28,#28,#14,#28,#14,#28,#14
	db #28,#14,#2b,#0a,#2b,#0a,#2b,#14
	db #2b,#28,#2a,#14,#2a,#14,#2a,#14
	db #28,#14,#2a,#0a,#2a,#0a,#2a,#14
	db #2a,#28,#28,#14,#28,#14,#28,#14
	db #28,#14,#2b,#0a,#2b,#0a,#2b,#14
	db #2b,#28,#2a,#14,#2a,#14,#28,#14
	db #3f,#14,#3e,#64,#3b,#14,#39,#14
	db #3b,#a0,#28,#14,#2a,#0a,#2a,#0a
	db #2a,#14,#2a,#28,#28,#14,#28,#14
	db #28,#14,#28,#14,#2b,#0a,#2b,#0a
	db #2b,#14,#2b,#28,#2a,#14,#2a,#14
	db #2a,#14,#28,#14,#2a,#0a,#2a,#0a
	db #2a,#14,#2a,#28,#28,#14,#28,#14
	db #28,#14,#28,#14,#2b,#0a,#2b,#0a
	db #2b,#14,#2b,#28,#2a,#14,#2a,#14
	db #2a,#14,#28,#14,#2a,#0a,#2a,#0a
	db #2a,#14,#2a,#28,#28,#14,#28,#14
	db #28,#14,#28,#14,#2b,#0a,#2b,#0a
	db #2b,#14,#2b,#28,#2a,#14,#2a,#14
	db #28,#14,#3f,#14,#3e,#64,#3b,#14
	db #39,#14,#3b,#a0,#1c,#28,#2b,#28
	db #1c,#28,#2b,#28,#1c,#28,#2b,#28
	db #1c,#28,#2b,#28,#1c,#28,#2b,#28
	db #1c,#28,#2b,#28,#1c,#28,#2b,#28
	db #1c,#28,#2b,#28,#34,#14,#37,#28
	db #3f,#14,#3e,#3c,#37,#14,#3a,#14
	db #3b,#8c,#37,#28,#36,#3c,#2f,#14
	db #34,#14,#31,#b4,#34,#14,#37,#28
	db #3f,#14,#3e,#3c,#37,#14,#3a,#14
	db #3b,#8c,#37,#28,#36,#3c,#2f,#14
	db #33,#14,#34,#b4,#34,#14,#37,#28
	db #3f,#14,#3e,#3c,#37,#14,#3a,#14
	db #3b,#8c,#37,#28,#36,#3c,#2f,#14
	db #34,#14,#31,#b4,#34,#14,#37,#28
	db #3f,#14,#3e,#3c,#37,#14,#3a,#14
	db #3b,#8c,#37,#28,#36,#3c,#2f,#14
	db #33,#14,#34,#b4,#34,#14,#34,#28
	db #34,#14,#36,#1e,#34,#0a,#36,#28
	db #37,#14,#37,#28,#37,#14,#36,#1e
	db #34,#0a,#36,#28,#34,#14,#34,#28
	db #34,#14,#36,#1e,#34,#0a,#36,#28
	db #37,#14,#37,#28,#37,#14,#36,#1e
	db #34,#0a,#36,#28,#37,#14,#37,#14
	db #fe,#28,#17,#28,#37,#14,#37,#14
	db #fe,#28,#17,#28,#37,#3c,#37,#14
	db #fe,#a0,#fe,#a0,#28,#14,#2a,#0a
	db #2a,#0a,#2a,#14,#2a,#28,#28,#14
	db #28,#14,#28,#14,#28,#14,#2b,#0a
	db #2b,#0a,#2b,#14,#2b,#28,#2a,#14
	db #2a,#14,#2a,#14,#28,#14,#2a,#0a
	db #2a,#0a,#2a,#14,#2a,#28,#28,#14
	db #28,#14,#28,#14,#28,#14,#2b,#0a
	db #2b,#0a,#2b,#14,#2b,#28,#2a,#14
	db #2a,#14,#2a,#14,#28,#14,#2a,#0a
	db #2a,#0a,#2a,#14,#2a,#28,#28,#14
	db #28,#14,#28,#14,#28,#14,#2b,#0a
	db #2b,#0a,#2b,#14,#2b,#28,#2a,#14
	db #2a,#14,#28,#14,#3f,#14,#3e,#64
	db #3b,#14,#39,#14,#3b,#a0,#28,#14
	db #2b,#28,#33,#14,#32,#28,#2b,#14
	db #2f,#28,#36,#14,#35,#28,#2f,#14
	db #32,#28,#3a,#14,#39,#28,#35,#14
	db #39,#3c,#3f,#14,#3e,#28,#fe,#3c
	db #3b,#a0,#ff,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00
	jp la3bf
	jp la3f8
.la3be
	db #00
;
.init_music
.la3bf
;
	call #bca7
	ld a,#01
	ld hl,la43e
	call #bcbc
	ld hl,(l9d6c)
	ld (la40c),hl
	ld hl,(l9d6e)
	ld (la414),hl
	ld hl,(l9d70)
	ld (la41c),hl
	xor a
	ld (la40a),a
	ld (la40b),a
	ld (la413),a
	ld (la41b),a
	ld (la3be),a
	ld hl,la401
	ld bc,#8100
	ld de,la448
	jp #bce0
;
.stop_music
.la3f8
;
	ld hl,la401
	call #bce6
	jp #bca7
.la401
	db #00,#00,#00,#00,#00,#00
	dw #0000
.la40c equ $ + 3
.la40b equ $ + 2
.la40a equ $ + 1
	db #00,#00,#00,#00,#00,#01
	dw la423,la42a
.la414 equ $ + 1
.la413
	db #00,#00,#00,#02
.la41c equ $ + 5
.la41b equ $ + 4
	dw la42c,la433,#0000,#0400
	dw la435,la43c
.la42a equ $ + 7
.la423
	db #82,#01,#00,#00,#00,#00,#00,#00
.la42c equ $ + 1
	db #00,#81,#01,#00,#00,#00,#00,#00
.la435 equ $ + 2
.la433
	db #00,#00,#84,#01,#00,#00,#00,#00
.la43e equ $ + 3
.la43c equ $ + 1
	db #00,#00,#00,#03,#05,#03,#01,#05
	db #ff,#08,#0a,#ff,#08
;
.play_music
.la448
;
	ld a,(la40a)
	and a
	jr z,la453
	dec a
	ld (la40a),a
	ret
.la453
	push ix
	ld ix,la40b
	call la474
	ld de,#0008
	add ix,de
	call la474
	ld de,#0008
	add ix,de
	call la474
	pop ix
	ld a,#02
	ld (la40a),a
	ret
.la474
	ld a,(ix+#00)
	and a
	jp z,la47f
	dec (ix+#00)
	ret
.la47f
	ld l,(ix+#01)
	ld h,(ix+#02)
	ld a,(hl)
	cp #ff
	jp nz,la498
	ld (la3be),a
	ld hl,la401
	call #bce6
	pop hl
	pop ix
	ret
.la498
	cp #fe
	jp nz,la4b3
	inc hl
	ld a,(hl)
	dec a
	inc hl
	ld (ix+#01),l
	ld (ix+#02),h
	ld (ix+#00),a
	ret
.la4ab
	push ix
	call #bcaa
	pop ix
	ret
.la4b3
	ld c,a
	inc hl
	ld a,(hl)
	dec a
	ld (ix+#00),a
	inc hl
	ld (ix+#01),l
	ld (ix+#02),h
	ld l,(ix+#06)
	ld h,(ix+#07)
	ld (hl),a
	ld hl,la4e6
	ld b,#00
	add hl,bc
	add hl,bc
	ex de,hl
	ld l,(ix+#04)
	ld h,(ix+#05)
	inc hl
	inc hl
	inc hl
	ld a,(de)
	ld (hl),a
	inc de
	inc hl
	ld a,(de)
	ld (hl),a
	dec hl
	dec hl
	dec hl
	dec hl
	jp la4ab
.la4e6
	dw #0eee,#0e18,#0d4d,#0c8e
	dw #0bda,#0b2f,#0a8f,#09f7
	dw #0968,#08e1,#0861,#07e9
	dw #0777,#070c,#06a7,#0647
	dw #05ed,#0598,#0547,#04fc
	dw #04b4,#0470,#0431,#03f4
	dw #03bc,#0386,#0353,#0324
	dw #02f6,#02cc,#02a4,#027e
	dw #025a,#0238,#0218,#01fa
	dw #01de,#01c3,#01aa,#0192
	dw #017b,#0166,#0152,#013f
	dw #012d,#011c,#010c,#00fd
	dw #00ef,#00e1,#00d5,#00c9
	dw #00be,#00b3,#00a9,#009f
	dw #0096,#008e,#0086,#007f
	dw #0077,#0071,#006a,#0064
	dw #005f,#0059,#0054,#0050
	dw #004b,#0047,#0043,#003f
	dw #003c,#0038,#0035,#0032
	dw #002f,#002d,#002a,#0028
	dw #0026,#0024,#0022,#0020
	dw #001e,#001c,#001b,#0019
	dw #0018,#0016,#0015,#0014
	dw #0013,#0012,#0011,#0010
	dw #0000
;
.game_name
	db "A View to a Kill",0
.game_year
	db "1985",0
.game_publisher
	db "Domark",0
.music_author
	db "",0
.music_comment
	db "",0

	read "music_end_v1_0.asm"
